
Partial Class Login
    Inherits System.Web.UI.Page

    Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
        If Not IsPostBack Then
            Session("year") = drpYear.SelectedValue
        End If
    End Sub

    Protected Sub txtCheck_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles txtCheck.Click
        Dim str As String = ""
        If (FormsAuthentication.Authenticate(txtUser.Text, txtPassword.Text)) Then
            'FormsAuthentication.SetAuthCookie(txtUser.Text, False)
            Session("year") = drpYear.SelectedValue
            FormsAuthentication.RedirectFromLoginPage(txtUser.Text, False)
        End If
    End Sub
End Class
